home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / BITMAP.INT < prev    next >
Text File  |  1989-06-02  |  362b  |  13 lines
  1. const
  2.    maxbit = 40;
  3. type
  4.    bitnumber = 0..39;
  5.    bitmap = record
  6.       bits:  array[0..4] of byte;       {bits 0..39}
  7.    end;
  8.  
  9. function getbit(map: bitmap; bitnum: bitnumber): boolean;
  10.    {return true/false for specified bit in a bitmap}
  11. procedure setbit(var map: bitmap; bitnum: bitnumber; value: boolean);
  12.    {set the specified bit in a bitmap}
  13.